home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / prog / mod2tutb.zip / GARDEN2.MOD < prev    next >
Text File  |  1989-01-18  |  766b  |  37 lines
  1.                                         (* Chapter 13 - Program 6 *)
  2. MODULE Garden2;
  3.  
  4. FROM InOut IMPORT WriteString, WriteLn;
  5. FROM RealInOut IMPORT WriteReal;
  6. IMPORT Circles;
  7.  
  8. VAR Radius, Area, Circumference : REAL;
  9.  
  10. BEGIN    (* Main program *)
  11.    Radius := 12.0;
  12.    Circles.AreaOfCircle(Radius,Area);
  13.    Circles.PerimeterOfCircle(Radius,Circumference);
  14.  
  15.           (* Calculations complete - output results *)
  16.  
  17.    WriteString("Radius = ");
  18.    WriteReal(Radius,12);
  19.    WriteString("     Area =");
  20.    WriteReal(Area,12);
  21.    WriteLn;
  22.    WriteString("Circumference = ");
  23.    WriteReal(Circumference,12);
  24.    WriteLn;
  25. END Garden2.
  26.  
  27.  
  28.  
  29.  
  30. (* Result of execution
  31.  
  32. Radius = 1.2000E+001     Area = 4.5239E+002
  33. Circumference =  7.5398E+001
  34.  
  35. *)
  36.  
  37.